home *** CD-ROM | disk | FTP | other *** search
/ Paradise in the Skirt / Paradise in the Skirt.iso / dept22.dir / 00069_Script_Man < prev    next >
Text File  |  1994-11-11  |  6KB  |  190 lines
  1. global gBlockList,gGirlList,gEntranceList,totalHpoint,moveV,moveH,RmoveH,RmoveV,stepNo,manH,manV,raderH,raderV,switchCast,gMovieList,movieNo,movieName
  2.  
  3.  
  4.  
  5. on moveMan direction
  6.   put stepNo + 1 into stepNo
  7.   if direction = 8 then
  8.     put 0 into moveH
  9.     put -9 into moveV
  10.     put 0 into RmoveH
  11.     put -72 into RmoveV
  12.     put 19 into startCast
  13.     put 22 into endCast
  14.   else if direction = 2 then
  15.     put 0 into moveH
  16.     put 9 into moveV
  17.     put 0 into RmoveH
  18.     put 72 into RmoveV
  19.     put 15 into startCast
  20.     put 18 into endCast
  21.   else if direction = 4 then
  22.     put -12 into moveH
  23.     put 0 into moveV
  24.     put -48 into RmoveH
  25.     put 0 into RmoveV
  26.     put 23 into startCast
  27.     put 26 into endCast
  28.   else if direction = 6 then
  29.     put 12 into moveH
  30.     put 0 into moveV
  31.     put 48 into RmoveH
  32.     put 0 into RmoveV
  33.     put 27 into startCast
  34.     put 30 into endCast
  35.   end if
  36.   IF NOT(THE CASTNUM OF SPRITE 13 = startCast) THEN
  37.     SET THE CASTNUM OF SPRITE 13 TO startCast
  38.     UPDATESTAGE
  39.     mMove girl1
  40.     mMove girl2
  41.     EXIT
  42.   END IF
  43.   if direction = 2 then
  44.     repeat with spno in gEntranceList
  45.       if sprite 14 intersects spno then
  46.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 5
  47.         UPDATESTAGE
  48.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 5
  49.         UPDATESTAGE
  50.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 5
  51.         UPDATESTAGE
  52.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 10
  53.         UPDATESTAGE
  54.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 15
  55.         UPDATESTAGE
  56.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 20
  57.         UPDATESTAGE
  58.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 20
  59.         UPDATESTAGE
  60.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 20
  61.         UPDATESTAGE
  62.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 20
  63.         UPDATESTAGE
  64.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 20
  65.         UPDATESTAGE
  66.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 20
  67.         UPDATESTAGE
  68.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 20
  69.         UPDATESTAGE
  70.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 20
  71.         UPDATESTAGE
  72.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 20
  73.         UPDATESTAGE
  74.         put 1 into switchCast
  75.         put 200 into manH
  76.         put 226 into manV
  77.         put 192 into raderH
  78.         put 217 into raderV
  79.         play done
  80.         exit
  81.       end if
  82.     end repeat
  83.   end if
  84.   set the locH of sprite 14 = the locH of sprite 14 + RmoveH
  85.   set the locV of sprite 14 = the locV of sprite 14 + RmoveV
  86.   updateStage
  87.   if stepNo >= 5 then
  88.     repeat with spno in gGirlList
  89.       if sprite 14 intersects spno then
  90.         if random(20) = 2 then
  91.           go to marker(1)
  92.           
  93.           nanpa
  94.           
  95.           set the locH of sprite 14 = the locH of sprite 14 - RmoveH
  96.           set the locV of sprite 14 = the locV of sprite 14 - RmoveV
  97.           exit 
  98.         end if
  99.         put getaProp(gMovieList,spno) into movieNo
  100.         put item 1 of line movieNo of the text of cast "CommentList" into Hpoint
  101.         SET THE LOCH OF SPRITE 14 TO THE LOCH OF SPRITE 14 - RmoveH
  102.         set the locV of sprite 14 to the locV of sprite 14 - RmoveV
  103.         puppetSprite 48, False
  104.         updateStage
  105.         sound stop 1
  106.         put "D" into movieName
  107.         playQTMovie
  108.         
  109.         put value(Hpoint) into thisHpoint
  110.         if thisHpoint > 0 then
  111.           set the text of cast "Comment" to "H.Point  +"&Hpoint
  112.         else
  113.           put abs(thisHpoint) into Hpoint
  114.           set the text of cast "Comment" to "H.Point  -"&Hpoint
  115.         end if
  116.         put totalHpoint + thisHpoint into totalHpoint
  117.         put totalHpoint into field "Hpoint"
  118.         put 0 into stepNo
  119.         EXIT
  120.       END IF
  121.     END REPEAT
  122.   end if
  123.   repeat with spno in gBlockList
  124.     if sprite 14 intersects spno then
  125.       SET THE LOCV OF SPRITE 14 TO THE LOCV OF SPRITE 14 - RmoveV
  126.       set the locH of sprite 14 to the locH of sprite 14 - RmoveH
  127.       UPDATESTAGE
  128.       SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  129.       UPDATESTAGE
  130.       SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  131.       UPDATESTAGE
  132.       SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  133.       UPDATESTAGE
  134.       SET THE CASTNUM OF SPRITE 13 TO startCast
  135.       UPDATESTAGE
  136.       mMove girl1
  137.       mMove girl2
  138.       EXIT
  139.     end if
  140.   end repeat
  141.   IF NOT(SPRITE 14 WITHIN 3) THEN
  142.     SET THE LOCH OF SPRITE 14 TO THE LOCH OF SPRITE 14 - RmoveH
  143.     set the locV of sprite 14 to the locV of sprite 14 - RmoveV
  144.     SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  145.     UPDATESTAGE
  146.     SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  147.     UPDATESTAGE
  148.     SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  149.     UPDATESTAGE
  150.     SET THE CASTNUM OF SPRITE 13 TO startCast
  151.     UPDATESTAGE
  152.     SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  153.     UPDATESTAGE
  154.     SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  155.     UPDATESTAGE
  156.     SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  157.     UPDATESTAGE
  158.     SET THE CASTNUM OF SPRITE 13 TO startCast
  159.     UPDATESTAGE
  160.     mMove girl1
  161.     mMove girl2
  162.   ELSE
  163.     if direction = 8 or direction = 2 then
  164.       put 2 into step
  165.     else
  166.       put 1 into step
  167.     end if
  168.     repeat with i = 1 to step
  169.       SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  170.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  171.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  172.       UPDATESTAGE
  173.       SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  174.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  175.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  176.       UPDATESTAGE
  177.       SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  178.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  179.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  180.       UPDATESTAGE
  181.       SET THE CASTNUM OF SPRITE 13 TO startCast
  182.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  183.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  184.       UPDATESTAGE
  185.     end repeat
  186.     mMove girl1
  187.     mMove girl2
  188.   END IF
  189. end
  190.